home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00007Series_53.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  759 b   |  28 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put EMPTY into field "bemodnum"
  4.   put EMPTY into field "comodnum"
  5.   put EMPTY into field "whexmodnum"
  6.   put EMPTY into field "bearingoption"
  7.   if field "diamodnum" contains "046" then
  8.     put "19" into field "whmodnum"
  9.   end if
  10.   if field "diamodnum" contains "056" then
  11.     put "16" into field "whmodnum"
  12.   end if
  13.   if field "diamodnum" contains "066" then
  14.     put "16" into field "whmodnum"
  15.   end if
  16.   if field "diamodnum" contains "086" then
  17.     put "17" into field "whmodnum"
  18.   end if
  19.   if field "diamodnum" contains "106" then
  20.     put "17" into field "whmodnum"
  21.   end if
  22.   if field "diamodnum" contains "126" then
  23.     put "17" into field "whmodnum"
  24.   end if
  25.   puppetTransition(47, 1, 8)
  26.   play frame "7bearinga"
  27. end
  28.